home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 66 / 066.d81 / invoice menu (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  43 lines
  1. 100 poke53281,0:poke53280,0:print"[147][158]";
  2. 110 c$="12121515010115151212":cc=-1
  3. 111 ss$="                                        "
  4. 120 fori=1to12:print"[169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][155][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223]";:next
  5. 130 fori=1to12:print"[152][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][151][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169]";:next
  6. 140 print"[152][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][151][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169]"
  7. 150 poke2023,peek(1083):poke56295,peek(56255)
  8. 160 fori=217to242:pokei,peek(i)or128:next
  9. 170 poke214,5:print:fori=1to10:printtab(4)"[221][152]                              [146][158][221]"
  10. 180 next:poke214,6:poke211,4:sys58732
  11. 190 print"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  12. 200 printtab(5)"[155][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][158]"
  13. 210 poke214,16:poke211,4:sys58732
  14. 220 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  15. 230 printtab(5)"[145][145][151][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][158]":poke214,8:print
  16. 240 a$="[201][160][206] [214] [207][160][201][160][195][160][197][160][160] [215][160][210][160][201][160][212] [197] [210]":gosub300
  17. 250 a$="by [205]aurice [210]andall":gosub300
  18. 260 a$="[208][213][194][204][201][211][200][197][196][160][207][206][160][204][207][193][196][211][212][193][210][160]#66":gosub300
  19. 270 a$="[211][213][194][211][195][210][201][208][212][201][207][206][211] 1-800-831-2694":gosub300
  20. 280 a$="([195]) 1989 [205]aurice [210]andall":gosub300
  21. 290 goto310
  22. 300 printspc(20-len(a$)/2)"[152]"a$:return
  23. 310 gosub510
  24. 330 poke214,20:poke211,4:sys58732
  25. 340 print"[159]1. [210][213][206] [201][206][214][207][201][195][197][160][215][210][201][212][197][210]
  26. 345 [153]"2. (NULL)(NULL)right$(NULL)(NULL)closeright$(NULL)(NULL)(NULL)right$lenvalclose(NULL)(NULL)right$(NULL)val(NULL) (NULL)atn(NULL)(NULL)atn(NULL)
  27. 350 print"3. [210][197][212][213][210][206][160][212][207][160][204][207][193][196][211][212][193][210]
  28. 370 [153]""
  29. 380 [161]a$:[139]a$[179]"1"[176]a$[177]"3"[167]380
  30. 381 c[178]1024[170](19[170][197](a$))[172]40[170]5:[129]i[178]c[164]c[170]30:[151]i,[194](i)[176]128:[130]
  31. 390 [145][197](a$)[137]400,410,420
  32. 400 f$[178]"inv.boot":[137]440
  33. 410 f$[178]"inv.manual":[137]440
  34. 420 f$[178]"hello connect"
  35. 440 [153]"";:[129]i[178]1[164]18:[153]ss$;:[130]
  36. 441 [129]i[178]217[164]242:[151]i,[194](i)[176]128:[130]
  37. 449 [159]15,8,15,"r0:"[170]f$[170]"="[170]f$:[132]15,er:[160]15
  38. 450 [139]er[179][177]63[167][128]
  39. 460 [153]"stopload"[199](34)f$[199](34)",8"
  40. 470 [151]631,13:[151]632,82:[151]633,213:[151]634,13:[151]198,4:[128]
  41. 510 [151]214,19:[158]58732:[129]i[178]1[164]5
  42. 520 [153]"open                                      ":[130]:[153]"":[142]
  43.